Private Sub Form_Load()

Dim x As String
x = InputBox("Enter File Directory")

If Dir$("x") <> "" Then
MsgBox ("The file exists")

Else
MsgBox ("The file does not exist")

End If

End Sub